14 May 2017
library(swimr)
ref <- src_sqlite("data-raw/Reference.db")
bb1 <- src_sqlite("data-raw/BridgeFail_1yr.db")
plot_floorspace(ref, facet_var = "MPO", facet_levels = c("Metro", "SalemKeizer"),
price = TRUE)
change_leaflet(ref, 2010, 2040)